home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).adf / DTdbS / DTdbS (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  22KB  |  523 lines
  1. SCREEN 2,640,200,4,2
  2. WINDOW 2,,,0,2
  3. RANDOMIZE TIMER
  4. DEFLNG a-z
  5. DECLARE FUNCTION opendiskfont&() LIBRARY
  6. LIBRARY "diskfont.library"
  7. LIBRARY "graphics.library"
  8. altfont=PEEKL(WINDOW(8)+52)
  9. neufont$="amber.font"+CHR$(0)
  10. hoehe=19:pref=96 
  11. text(0)=SADD(neufont$)
  12. text(1)=(2^16)*hoehe+pref
  13. font=opendiskfont&(VARPTR(text(0)))
  14. IF font<>0 THEN CALL setfont&(WINDOW(8),font)
  15. POKE &Hdff0*256+&H96,32
  16. FOR i=1 TO 5
  17. MENU i,0,1,""
  18. NEXT
  19. MENU ON
  20. FOR i=0 TO 27
  21. PALETTE i,0,0,0
  22. NEXT
  23. LOCATE 3,18:COLOR 8:CALL setdrmd&(WINDOW(8),0):POKE WINDOW (8)+56,3
  24. schr$="Das Tal der blauen Steine":sp(schr$):LOCATE 5,3:POKE WINDOW (8)+56,4
  25. COLOR 9:schr$="Dieses Spiel wurde von Martin Jochimczyk programmiert!":sp(schr$):LOCATE 7,3
  26. schr$="Ihre Aufgabe ist es ihren besten Freund zu raechen,":sp(schr$):LOCATE 9,3
  27. schr$="der von irgendjemand umgebracht wurde, Sie wissen nur":sp(schr$):LOCATE 11,3
  28. schr$="noch nicht von wem.":sp(schr$):LOCATE 14,3:COLOR 10
  29. schr$="Dieses Programm ist ein Shareware Programm! Wenn Sie es":sp(schr$):LOCATE 15,3
  30. schr$="oefter benutzen, so senden Sie bitte 5 - 10 DM an folgende":sp(schr$):LOCATE 16,3
  31. schr$="Adresse:":sp(schr$):LOCATE 18,20:COLOR 11
  32. schr$="Martin Jochimczyk":sp(schr$):LOCATE 19,20
  33. schr$="Am Sande 12":sp(schr$):LOCATE 20,20
  34. POKE WINDOW (8)+56,5:schr$="2723 Scheessel":sp(schr$) 
  35. CALL setdrmd&(WINDOW(8),1):POKE WINDOW (8)+56,0
  36. PALETTE 8,0.4,0.6,1:PALETTE 9,1,0.67,0.53:PALETTE 10,0.8,0,0.93:PALETTE 11,1,0.23,0.93
  37. SLEEP:SLEEP:SLEEP:SLEEP
  38. CLS:PALETTE 5,1,1,0.13
  39. CALL setdrmd&(WINDOW(8),0)
  40. POKE WINDOW (8)+56,4
  41. LOCATE 3,3:schr$="Um das Prgramm auf eine Andere Diskette, oder auf":sp(schr$):LOCATE 5,3
  42. schr$="die Festplatte zu kopieren brauchen Sie folgende Files:":sp(schr$):LOCATE 7,3
  43. schr$="Tdbs,Tdbs1,Tdbs2,Tdbs3,Tbds4,Tdbs5 und die Diskfont":sp(schr$):LOCATE 9,3
  44. schr$="und Graphics library. Weiter benoetigen Sie noch den Font":sp(schr$):LOCATE 11,3
  45. schr$="amber.font":sp(schr$):LOCATE 13,3
  46. schr$="So das war schon alles, und nun viel Spass beim Spielen!":sp(schr$)
  47. SLEEP:SLEEP:SLEEP:SLEEP
  48. start:
  49. CALL freesprite(0) 
  50. CLS 
  51. PALETTE 5,0.93,0.2,0
  52. PALETTE 6,0.4,0.6,1
  53. PALETTE 7,0.8,0.4,0.33
  54. COLOR 5:LOCATE 11,15:LINE INPUT"Dein Name Freak: ";spieler$
  55. lebensenergie=2*(INT(RND*(6+1)+6))
  56. kraft=2*(INT(RND*(6+1)+3))
  57. intelligenz=2*(INT(RND*(6+1)+2))
  58. charisma=2*(INT(RND*(4+1)+1))
  59. parade=10:attacke=12 
  60. geschick=2*(INT(RND*(4+2)+3))
  61. kleidung$="Normale Kleidung":ad=0
  62. waffe$="Hand"
  63. mut=2*(INT(RND*(5+1)+2))
  64. geld=0:punkte=0:d=0:offen=0:z=0:y=0:df=0
  65. COLOR 2
  66. 1 
  67. CLS:LOCATE 3,3
  68. schr$="Eigentlich haette es alles so schoen werden sollen.":sp(schr$):LOCATE 5,3
  69. schr$="Du wolltest Deinen besten Freund besuchen und wurdest":sp(schr$):LOCATE 7,3
  70. schr$="aufgehalten. Na ja, dann hast Du noch einen getrunken,":sp(schr$):LOCATE 9,3
  71. schr$="aber was dann kam weisst Du nicht mehr. Und nun liegst":sp(schr$):LOCATE 11,3
  72. schr$="Du hier unten, in dieser feuchten Zelle und weisst nicht":sp(schr$):LOCATE 13,3
  73. schr$="was Du hier nun machen sollst. Doch als Du naeher an die":sp(schr$):LOCATE 15,3
  74. schr$="alte Zellentuer heran tritts bemerkst Du das Sie einen ":sp(schr$):LOCATE 17,3
  75. schr$="kleinen Spalt offen ist. Ja ist es denn ein Wunder?":sp(schr$):LOCATE 19,3
  76. schr$="So langsam wird die Story ja interssant.":sp(schr$):LOCATE 21,3:COLOR 3
  77. schr$="Mit < F1 > verlaesst Du die Zelle":sp(schr$):COLOR 2
  78. PALETTE 2,1,0.87,0.73:PALETTE 3,1,1,0.13 
  79. WHILE 1
  80.  getkey x
  81.  IF x=1 THEN 2 
  82.  IF x=11 THEN GOSUB dokument:GOTO 1 
  83. WEND
  84.  
  85. 2 
  86. CLS:LOCATE 3,3
  87. schr$="Du stehst in einem dunklen Gang, die Waende sind feucht":sp(schr$):LOCATE 5,3
  88. schr$="und mit Algen besetzt. Die Steine des Ganges sind Gross,":sp(schr$):LOCATE 7,3
  89. schr$="und sehen schon sehr alt aus. Die Luft die Du atmest riecht":sp(schr$):LOCATE 9,3
  90. schr$="vermodert. Der Gang fuehrt nach Westen und nach Osten.":sp(schr$):LOCATE 12,3:COLOR 3
  91. schr$="Mit < F1 > entscheidest Du Dich fuer den Weg nach Westen":sp(schr$):LOCATE 14,3
  92. schr$="Mit < F2 > gehst Du lieber nach Osten":sp(schr$):LOCATE 16,3 
  93. schr$="Du kannst in die Zelle gehen und auf ein Wunder warten < F3 >":sp(schr$):COLOR 2 
  94. WHILE 1
  95.  getkey x
  96.  ON x GOTO 3,4,ende
  97.  IF x=11 THEN GOSUB dokument:GOTO 2
  98. WEND
  99.  
  100. 3 
  101. CLS:LOCATE 3,3
  102. schr$="Der Gang verlaueft noch ein Stueck weiter nach Westen":sp(schr$):LOCATE 5,3
  103. schr$="bis er schliesslich einen Knick nach Sueden macht. Jetzt sind":sp(schr$):LOCATE 7,3
  104. schr$="es etwa noch drei Meter weiter nach Sueden und dann wendet":sp(schr$):LOCATE 9,3
  105. schr$="sich der Gang wieder nach Westen, und stoppt vor einer ":sp(schr$):LOCATE 11,3
  106. schr$="grossen, alten Eichentuer. Die Tuer hat ein paar Astloecher":sp(schr$):LOCATE 13,3
  107. schr$="durch die Du erkennen kannst das sich niemand in dem Raum":sp(schr$):LOCATE 15,3
  108. schr$="dahinter aufhaellt.":sp(schr$):LOCATE 18,3:COLOR 3
  109. schr$="Du kannst versuchen die Tuer zu oeffnen < F1 >":sp(schr$):LOCATE 20,3
  110. schr$="oder den Gang wieder zurueck gehen < F2 >":sp(schr$):COLOR 2
  111. WHILE 1
  112.  getkey x
  113.  ON x GOTO 5,2
  114.  IF x=11 THEN GOSUB dokument:GOTO 3
  115. WEND
  116.  
  117. 4 
  118. CLS:LOCATE 3,3
  119. schr$="Der Gang wird an seinem hinterem Ende schmaler und endet":sp(schr$):LOCATE 5,3
  120. schr$="letzendlich vor einer Tuer. Diese ist gross und aus gutem":sp(schr$):LOCATE 7,3
  121. schr$="Holz. Es gibt keine Moeglichkeit hindurchzusehen. Aber was":sp(schr$):LOCATE 9,3
  122. schr$="Dir Deine geschulte Nase sagt reicht: Es stinkt ganz erberm-":sp(schr$):LOCATE 11,3
  123. schr$="lich nach Kloake von Orks. Und nun geht Dir ein Licht auf.":sp(schr$):LOCATE 13,3
  124. schr$="Du befindest Dich in einer Wohnhoehle von diesen wiederlichen":sp(schr$):LOCATE 15,3
  125. schr$="Orks. Nur bei dem gedanken wird einem ja schon uebel.":sp(schr$):LOCATE 18,3:COLOR 3
  126. schr$="Du kannst die Tuer oeffnen und sehen was dahinter ist < F1 >":sp(schr$):LOCATE 20,3
  127. schr$="oder den Gang leise zurueckgehen < F2 >":sp(schr$):COLOR 2
  128. WHILE 1
  129. getkey x
  130. ON x GOTO 10,2
  131. IF x=11 THEN GOSUB dokument:GOTO 4
  132. WEND
  133.  
  134. 5 
  135. CLS:LOCATE 3,3
  136. schr$="Du stehst in einem 5x4 Meter grossem Raum mit vier":sp(schr$):LOCATE 4,3
  137. schr$="Ausgaengen. Der Raum beinhaltet eine alte Feuerstelle in":sp(schr$):LOCATE 5,3
  138. schr$="der Mitte, drei kleine Schlafstellen aus Stroh, jeweils":sp(schr$):LOCATE 6,3
  139. schr$="eine in der nordoestlichen, suedoestelichen und ":sp(schr$):LOCATE 7,3
  140. schr$="suedwestlichen Ecke des Raumens. Ueber der Feuerstelle, die":sp(schr$):LOCATE 8,3
  141. schr$="so scheint es, schon seit meheren Tagen nicht mehr benutzt":sp(schr$):LOCATE 9,3
  142. schr$="wurde haengt ein Kessel mit einer uebelrichenden Fluessig-":sp(schr$):LOCATE 10,3
  143. schr$="keit drin. Ansonsten befindet sich nur noch ein robuster,":sp(schr$):LOCATE 11,3
  144. schr$="kleiner Spint in der nordwestichen Ecke. Dieser ist aber":sp(schr$):LOCATE 12,3
  145. schr$="verschlossen.":sp(schr$):LOCATE 14,3:COLOR 3
  146. schr$="Du kannst nach < F1 > Norden,":sp(schr$):LOCATE 15,3
  147. schr$="Osten < F2 >,":sp(schr$):LOCATE 16,3
  148. schr$="Sueden < F3 >":sp(schr$):LOCATE 17,3
  149. schr$="oder nach Westen < F4 > gehen":sp(schr$):LOCATE 18,3
  150. schr$="Wenn Du den Schrank oeffnen willst druecke < F5 >":sp(schr$):LOCATE 19,3
  151. schr$="Du kannst noch mal alles Durchsuchenn < F6 >":sp(schr$):COLOR 2
  152. LOCATE 21,1
  153. WHILE 1
  154. getkey x
  155. ON x GOTO 15,3,103,25
  156. IF x=5 THEN PRINT "   Der Schrank ist leider leer"
  157. IF x=6 THEN PRINT "   Die Fluessigkeit ist Suppe, die vergammelt ist."
  158. IF x=11 THEN GOSUB dokument:GOTO 5
  159. WEND
  160.  
  161. 6 
  162. CLS:LOCATE 3,3
  163. schr$="Du befindest Dich auf einem Gang, dessen Waende sehr":sp(schr$):LOCATE 5,3
  164. schr$="Feucht sind. Der Gang ist nur Schwach beleuchtet, so":sp(schr$):LOCATE 7,3
  165. schr$="dass es unmoeglich ist etwas genaueres zu erkennen":sp(schr$):LOCATE 9,3
  166. schr$="In der Mitte des Ganges befindet sich eine Zellentuer.":sp(schr$):LOCATE 11,3
  167. schr$="Am anderen Ende des Ganges ist noch eine alte Tuer.":sp(schr$):LOCATE 14,3:COLOR 3
  168. schr$="Du kannst wieder zurueckgehen < F1 >":sp(schr$):LOCATE 16,3
  169. schr$="Du hast auch die Moeglichkeit zur anderen Tuer zu gehen < F2 >":sp(schr$):LOCATE 18,3
  170. schr$="Es besteht die Moeglichkeit die Zelle zu Untersuchen < F3 >":sp(schr$):COLOR 2
  171. WHILE 1
  172. getkey x
  173. ON x GOTO 10,5
  174. IF x=3 THEN GOSUB 102:GOTO 6
  175. IF x=11 THEN GOSUB dokument:GOTO 6
  176. WEND
  177.  
  178. 10 
  179. CLS:LOCATE 3,3
  180. schr$="Du befindet dich in einem Raum, der 10x8 Meter misst.":sp(schr$):LOCATE 4,3
  181. schr$="Oeffnungen befinden sich in der Nord-, Ost-, Sued-, und":sp(schr$):LOCATE 5,3
  182. schr$="Westwand. Du hast Glueck, das die Bewohner zur Zeit nicht":sp(schr$):LOCATE 6,3
  183. schr$="da sind. In dem Zimmer steht ein Tisch mit vier Stuehlen":sp(schr$):LOCATE 7,3
  184. schr$="An der Westwand haengt ein Regal, wo mehere kleine Ampullen":sp(schr$):LOCATE 8,3
  185. schr$="draufstehen. Sie haben alle eine verschiedene Farbe und riechen":sp(schr$):LOCATE 9,3
  186. schr$="nach Gewuerzen. Sonst ist nichts in diesem Raum.":sp(schr$):LOCATE 11,3:COLOR 3
  187. schr$="Willst Du nach Norden druecke < F1 >":sp(schr$):LOCATE 12,3
  188. schr$="Gehst Du doch lieber nach Westen druecke < F2 >":sp(schr$):LOCATE 13,3
  189. schr$="Wenn Du den Weg nach Osten einschlagen willst, druecke < F3 >":sp(schr$):LOCATE 14,3
  190. schr$="Nach Sueden geht es mit < F4 >":sp(schr$):LOCATE 15,3
  191. schr$="Du kannst ja auch die Ampullen probieren < F5 >":sp(schr$):COLOR 2
  192. WHILE 1
  193. getkey x
  194. ON x GOTO 11,4,27,6,100
  195. IF x=11 THEN GOSUB dokument:GOTO 10
  196. WEND
  197.  
  198. 11 
  199. IF qwe=1 THEN 13
  200. d=INT(RND*(20+1)+5) 
  201. IF geschick>=d THEN 12 
  202. IF geschick<=d THEN 104
  203.  
  204. 12 IF qwe=1 THEN 13
  205. CLS:LOCATE 3,3
  206. schr$="Durch dein enormes Geschick und deine Fingerfertigkeit":sp(schr$):LOCATE 5,3
  207. schr$="hast Du es geschafft die verschlossene Tuer zu knacken":sp(schr$):LOCATE 7,3
  208. schr$="Herzlichen Glueckwunsch !":sp(schr$)
  209. IF q=0 THEN punkte=punkte+2:q=1:w=1:qwe=1
  210. SLEEP:SLEEP:SLEEP:SLEEP:GOTO 13
  211.  
  212. 13 
  213. CLS:LOCATE 3,3
  214. schr$="Du kommst in einen 5x6 Meter grossen Raum, mit":sp(schr$):LOCATE 5,3
  215. schr$="einem Ausgang im Norden und einem Ausgang im":sp(schr$):LOCATE 7,3
  216. schr$="Sueden. Ansonsten ist der Raum leer.":sp(schr$):LOCATE 9,3:COLOR 3
  217. schr$="Du kannst nach Norden < F1 >":sp(schr$):LOCATE 11,3
  218. schr$="Es geht auch ein Weg nach Sueden < F2 >":sp(schr$):COLOR 2
  219. WHILE 1
  220. getkey x
  221. ON x GOTO 14,10
  222. IF x=11 THEN GOSUB dokument:GOTO 13
  223. WEND
  224.  
  225. 14 
  226. IF offen=1 THEN 110
  227. CLS:LOCATE 3,3
  228. schr$="Der Gang fuehrt noch ein paar Meter nach Norden, bis":sp(schr$):LOCATE 5,3
  229. schr$="Du vor einem Eisengitter, dass den gesamten Gang":sp(schr$):LOCATE 7,3
  230. schr$="versperrt, stehst. Es besteht keine Moeglichkeit das":sp(schr$):LOCATE 9,3
  231. schr$="Gitter in die Hoehe zu stemmen, dafuer  bist Du":sp(schr$):LOCATE 11,3
  232. schr$="einfach zu schwach.":sp(schr$):LOCATE 13,3
  233. schr$="Hinter dem Gitter kannst Du schwach eine Lichtquelle":sp(schr$):LOCATE 15,3
  234. schr$="erkennen.":sp(schr$):LOCATE 18,3:COLOR 3
  235. schr$="Du kannst nur nach Sueden < F1 >":sp(schr$):COLOR 2
  236. WHILE 1
  237. getkey x
  238. ON x GOTO 13
  239. IF x=11 THEN GOSUB dokument:GOTO 14
  240. WEND
  241.  
  242. 15 
  243. CLS:LOCATE 3,3
  244. schr$="Du bist in einem feuchten kleinen Gang. Der Gang ist nur":sp(schr$):LOCATE 5,3
  245. schr$="schwach beleuchtet und gabelt sich nach ein paar Metern.":sp(schr$):LOCATE 7,3
  246. schr$="Du kannst nach Norden, Osten und nach Sueden gehen. An al-":sp(schr$):LOCATE 9,3
  247. schr$="len drei Enden des Ganges befindet sich eine Tuer. Die Tueren":sp(schr$):LOCATE 11,3
  248. schr$="sind nicht sehr neu und aus einem dunklen Holz gearbeitet.":sp(schr$):LOCATE 14,3
  249. COLOR 3:schr$="Wenn Du nach Norden willst, druecke < F1 >":sp(schr$):LOCATE 16,3
  250. schr$="Schlaegst Du lieber den Weg nach Sueden ein, druecke < F2 >":sp(schr$):LOCATE 18,3
  251. schr$="Du kannst aber auch nach Osten gehen < F3 >":sp(schr$):COLOR 2
  252. WHILE 1
  253. getkey x
  254. ON x GOTO 17,5,16
  255. IF x=11 THEN GOSUB dokument:GOTO 15
  256. WEND
  257.  
  258. 16 
  259. CLS:LOCATE 3,3
  260. schr$="Du befindest dich in einem 5x5 Meter grossem Raum mit":sp(schr$):LOCATE 5,3
  261. schr$="einer Tuer in der Westwand. In diesem Raum steht eine grosse":sp(schr$):LOCATE 7,3
  262. schr$="und offensichtlich schwere Truhe, die mit Runen beschriftet":sp(schr$):LOCATE 9,3
  263. schr$="ist und zwei massive Schloesser aufweist.":sp(schr$):LOCATE 12,3:COLOR 3
  264. schr$="Du kannst versuchen die Truhe zu oeffnen < F1 >":sp(schr$):LOCATE 14,3
  265. schr$="Du kannst auch den Raum wieder verlassen < F2 >":sp(schr$):COLOR 2
  266. WHILE 1
  267. getkey x
  268. ON x GOTO 105,15
  269. IF x=11 THEN GOSUB dokument:GOTO 16
  270. WEND
  271.  
  272. 17 
  273. CLS:LOCATE 3,3
  274. schr$="Du stehst in einem 4x2 Meter grossem Raum mit einer":sp(schr$):LOCATE 5,3
  275. schr$="Tuer in der Suedwand. Von der Decke des Raumes haengt":sp(schr$):LOCATE 7,3
  276. schr$="eine Kette mit einer Holzverzierung am Ende. Sonst bietet":sp(schr$):LOCATE 9,3
  277. schr$="der Raum noch einen Tisch und zwei Stuehle.":sp(schr$):LOCATE 12,3:COLOR 3
  278. schr$="Du kannst den Raum verlassen, < F1 >":sp(schr$):LOCATE 14,3
  279. schr$="oder an der Kette ziehen < F2 >":sp(schr$):COLOR 2
  280. WHILE 1
  281. getkey x
  282. ON x GOTO 15,112
  283. IF x=11 THEN GOSUB dokument:GOTO 17
  284. WEND
  285.  
  286. 25 
  287. CLS:LOCATE 3,3
  288. schr$="Der Gang ist sehr feucht und schlecht beleuchtet.":sp(schr$):LOCATE 5,3
  289. schr$="Es sieht so aus, als ob hier frueher mal gearbeitet":sp(schr$):LOCATE 7,3
  290. schr$="wurde, denn der Stein wurde behauen. Der Gang endet":sp(schr$):LOCATE 9,3
  291. schr$="nach ca. 4 Metern. Aus einigen Ritzen tropft hin und":sp(schr$):LOCATE 11,3
  292. schr$="wieder ein wenig Wasser. Ansonsten ist der Gang leer.":sp(schr$)
  293. SLEEP:SLEEP:SLEEP:GOTO 5
  294.  
  295. 27 
  296. CLS:LOCATE 3,3
  297. schr$="Du befindest Dich in einem 4x4 Meter grossen Raum,":sp(schr$):LOCATE 5,3
  298. schr$="der wie die Hexenkueche eines Alchimisten aussueht.":sp(schr$):LOCATE 7,3
  299. schr$="Es gibt eine Feuerstelle, Tiegel, Toepfe, Destillier-":sp(schr$):LOCATE 9,3
  300. schr$="kolben und Regale, auf denen in Kruegen und Kaesten":sp(schr$):LOCATE 11,3
  301. schr$="Tinkturen und Chemikalien aufbewahrt werden.":sp(schr$):LOCATE 14,3:COLOR 3
  302. schr$="Du kannst den Raum durchsuchen, < F1 >":sp(schr$):LOCATE 16,3
  303. schr$="oder den Weg zurueck nach Westen gehen < F2 >":sp(schr$):COLOR 2
  304. WHILE 1
  305. getkey x
  306. ON x GOTO 101,10
  307. IF x=11 THEN GOSUB dokument:GOTO 27
  308. WEND
  309.  
  310. 100 
  311. CLS:LOCATE 3,3
  312. schr$="Toll, als Du die ersten probiert hast merkst Du wie":sp(schr$):LOCATE 5,3
  313. schr$="die Kraft in Dir heranstroemt. Du fuellst Dich gleich":sp(schr$):LOCATE 7,3
  314. schr$="wie neu geboren.":sp(schr$)
  315. IF z=0 THEN lebensenergie=lebensenergie+3:punkte=punkte+1:z=1
  316. SLEEP:SLEEP:SLEEP:GOTO 10
  317.  
  318. 101 
  319. CLS:LOCATE 3,3
  320. schr$="Du findest leider nichts. Deine Topfguckerei hat aber die":sp(schr$):LOCATE 5,3
  321. schr$="negative Auswirkung, dass Dir von einer agressiven Substanz":sp(schr$):LOCATE 7,3
  322. schr$="die Augen Traenen.":sp(schr$)
  323. IF y=0 THEN parade=parade-1:punkte=punkte+1:y=1
  324. SLEEP:SLEEP:SLEEP:SLEEP:GOTO 27
  325.  
  326. 102 
  327. CLS:LOCATE 3,3
  328. schr$="Als Du naeher an die Zellentuer herantritst, erkennst":sp(schr$):LOCATE 5,3
  329. schr$="Du erst, wie uebel es in der Zelle aussieht. Ueberall":sp(schr$):LOCATE 7,3
  330. schr$="laufen Ratten auf einem Menschenkoerper umher, die Leiche":sp(schr$):LOCATE 9,3
  331. schr$="ist kein schoener Anblick, Wuermer haben sich durch die":sp(schr$):LOCATE 11,3
  332. schr$="Haut gefressen und an einigen Stellen ragt schon der blosse":sp(schr$):LOCATE 13,3
  333. schr$="Knochen aus der Haut. Es war sicherlich kein schneller":sp(schr$):LOCATE 15,3
  334. schr$="Tod fuer das Opfer - doch ploetzlich erkennst Du an dem":sp(schr$):LOCATE 17,3
  335. schr$="Ring des Toten das es Dein bester Freund war. Purer Hass":sp(schr$):LOCATE 19,3
  336. schr$="spiegelt sich in deinen Augen. Du schwoerst Rache !":sp(schr$)
  337. SLEEP:SLEEP:SLEEP:SLEEP:RETURN 
  338.  
  339. 103 
  340. CLS:LOCATE 3,3
  341. schr$="Du befindest Dich auf einem Gang, dessen Waende sehr":sp(schr$):LOCATE 5,3
  342. schr$="Feucht sind. Der Gang ist nur Schwach beleuchtet, so":sp(schr$):LOCATE 7,3
  343. schr$="dass es unmoeglich ist etwas genaueres zu erkennen":sp(schr$):LOCATE 9,3
  344. schr$="In der Mitte des Ganges befindet sich eine Zellentuer.":sp(schr$):LOCATE 11,3
  345. schr$="Am anderen Ende des Ganges ist noch eine alte Tuer.":sp(schr$):LOCATE 14,3:COLOR 3
  346. schr$="Du kannst wieder zurueckgehen < F1 >":sp(schr$):LOCATE 16,3
  347. schr$="Du hast auch die Moeglichkeit zur anderen Tuer zu gehen < F2 >":sp(schr$):LOCATE 18,3
  348. schr$="Es besteht die Moeglichkeit die Zelle zu Untersuchen < F3 >":sp(schr$):COLOR 2
  349. WHILE 1
  350. getkey x
  351. ON x GOTO 5,10
  352. IF x=3 THEN GOSUB 102:GOTO 103
  353. IF x=11 THEN GOSUB dokument:GOTO 103
  354. WEND
  355.  
  356. 104 
  357. CLS:LOCATE 3,3
  358. schr$="Die Tuer ist leider verschlossen und Du bist auch zu":sp(schr$):LOCATE 5,3
  359. schr$="Ungeschickt um Sie zu oeffnen. Du tust mir leid.":sp(schr$):LOCATE 7,3
  360. schr$="Aber Kopf Hoch Junge. Du musst Dich deswegen nicht":sp(schr$):LOCATE 9,3
  361. schr$="gleich umbringen. Es gibt nicht viele die zwei linke":sp(schr$):LOCATE 11,3
  362. schr$="Haende haben und so ungeschickt sind wie Du.":sp(schr$)
  363. SLEEP:SLEEP:SLEEP:GOTO 10
  364.  
  365. 105 
  366. IF ad=1 THEN 111
  367. CLS:LOCATE 3,3
  368. schr$="Ploetzlich materialisiert vor Dir eine Gestalt. Es":sp(schr$):LOCATE 5,3
  369. schr$="handelt sich um einen finster blickenden, aber offen":sp(schr$):LOCATE 7,3
  370. schr$="sichtlich waffenlosen Mann in einer braunen, reichlich":sp(schr$):LOCATE 9,3
  371. schr$="zerlumpten Kutte, der sich Dir als `Zidru, der Bettler'":sp(schr$):LOCATE 11,3
  372. schr$="vorstellt. Er fordert Dich auf die Finger von diesen ":sp(schr$):LOCATE 13,3
  373. schr$="Relikten zu lassen, denn er habe diese Truhe zuerst ent":sp(schr$):LOCATE 15,3
  374. schr$="deckt.":sp(schr$):LOCATE 18,3:COLOR 3
  375. schr$="Du laesst Zidru den Vortritt < F1 >":sp(schr$):LOCATE 20,3
  376. schr$="Du beginnst selber die Truhe zu oeffnen < F2 >":sp(schr$):COLOR 2
  377. SLEEP:SLEEP
  378. WHILE 1
  379. getkey x
  380. ON x GOTO 106,107
  381. IF x=11 THEN GOSUB dokument:GOTO 105
  382. WEND
  383.  
  384. 106 
  385. CLS:LOCATE 3,3
  386. schr$="Zidru der Bettler oeffnet nach einigem Herumhantieren die":sp(schr$):LOCATE 5,3
  387. schr$="Truhe. Als er den Deckel anhebt, bohrt sich ein Dorn in":sp(schr$):LOCATE 7,3
  388. schr$="seine Hand. Offensichtlich was der Dornen vergiftet, den":sp(schr$):LOCATE 9,3
  389. schr$="Zidru schreit noch einmal auf, dann faellt er um und bleibt":sp(schr$):LOCATE 11,3
  390. schr$="leblos am Boden liegen.":sp(schr$):LOCATE 16,3:COLOR 3
  391. schr$="Wenn Du die Lust an der Truhe verloren hast druecke < F1 >":sp(schr$):LOCATE 18,3
  392. schr$="Wenn Du die Truhe versuchen willst zu oeffnen druecke < F2 >":sp(schr$):COLOR 2
  393. SLEEP:SLEEP
  394. WHILE 1
  395. getkey x
  396. ON x GOTO 16,108
  397. IF x=11 THEN GOSUB dokument:GOTO 106
  398. WEND            
  399.  
  400. 107 
  401. CLS:LOCATE 3,3:COLOR 5
  402. schr$="Als Du versuchst den komplizierten Verschluss der Truhe zu":sp(schr$):LOCATE 5,3
  403. schr$="oeffnen bohrt sich ein vergiftetet Dorn in Deine Hand.":sp(schr$):LOCATE 7,3
  404. schr$="Unter einem Aufschrei laesst Du von der Truhe ab, aber es":sp(schr$):LOCATE 9,3
  405. schr$="ist alles zu spaet, den das Gift ist schon in deinen Koer-":sp(schr$):LOCATE 11,3
  406. schr$="per uebergegangen. Tja, so endet ein schoenes Heldenleben!":sp(schr$):LOCATE 13,3
  407. COLOR 2:SLEEP:SLEEP:SLEEP:SLEEP:GOTO schluss
  408.   
  409. 108 
  410. d=INT(RND*(20+1)) 
  411. IF intelligenz>=d THEN 107 
  412. IF intelligenz<=d THEN 109
  413.  
  414. 109 
  415. CLS:LOCATE 3,3
  416. punkte=punkte+1
  417. schr$="Als Du die Truhe oeffnest, findest Du 10 Silberstuecke.":sp(schr$):LOCATE 5,3
  418. schr$="Ein Kurzschwert liegt auch noch in der Truhe, ansonsten":sp(schr$):LOCATE 7,3
  419. schr$="nur noch ein paar Kleidungssatuecke, die aber noch ver":sp(schr$):LOCATE 9,3
  420. schr$="lumpter sind als deine eigenen.":sp(schr$)
  421. geld=geld+10:waffe$="Kurzschwert":ad=1
  422. SLEEP:SLEEP:SLEEP:SLEEP:SLEEP:GOTO 16
  423.  
  424. 110 
  425. CLS:LOCATE 3,3:COLOR 7
  426. schr$="Du gehst den Gang ein Stueck weiter und dann macht":sp(schr$):LOCATE 5,3
  427. schr$="der Gang eine Knick nach Osten und Du erblickst -":sp(schr$):LOCATE 7,3
  428. schr$="nein ist es denn ein Wunder - Das Tageslicht.":sp(schr$):LOCATE 9,3
  429. schr$="Du kannst es noch gar nicht glauben, Du bist frei!":sp(schr$):LOCATE 11,3
  430. schr$="Frei? Was heisst das schon?! Jetzt schiessen Dir wieder":sp(schr$):LOCATE 13,3
  431. schr$="die Bilder deines toten Freundes in den Kopf. Du musst":sp(schr$):LOCATE 15,3
  432. schr$="einfach die Moerder finden und dich raechen !":sp(schr$):COLOR 2
  433. OPEN "Held" FOR OUTPUT AS #1
  434. WRITE #1,spieler$,geld,punkte,mut,waffe$
  435. WRITE #1,kleidung$,geschick,parade,attacke 
  436. WRITE #1,charisma,intelligenz,kraft,lebensenergie 
  437. CLOSE #1
  438. LOAD"TDBS1",r
  439.  
  440. 111 
  441. CLS:LOCATE 3,3
  442. schr$="Wie oft willst Du es denn noch versuchen ?":sp(schr$):LOCATE 5,3
  443. schr$="Die Truhe ist wirklich leer. Du findest auch nach":sp(schr$):LOCATE 7,3
  444. schr$="noch so langem suchen nichts mehr. ":sp(schr$):LOCATE 10,5
  445. schr$="Da ist nichts mehr zu holen !!!":sp(schr$)
  446. SLEEP:SLEEP:SLEEP:SLEEP:SLEEP:GOTO 16
  447.  
  448. 112 
  449. CLS:LOCATE 3,3
  450. schr$="Du hoerst in der Ferne ein leises Rumpeln und Knarren.":sp(schr$):LOCATE 5,3
  451. schr$="Sonst passiert nichts.":sp(schr$)
  452. offen=1
  453. IF df=0 THEN punkte=punkte+1
  454. df=1
  455. SLEEP:SLEEP:SLEEP:SLEEP:SLEEP:GOTO 17
  456.  
  457. REM ********************
  458. REM ** unterprogramme **
  459. REM ********************
  460.  
  461. SUB sp(schr$) STATIC
  462. CALL text(WINDOW(8),SADD(schr$),LEN(schr$))
  463. END SUB
  464.  
  465. SUB getkey (keynumber) STATIC
  466. in$=""
  467. WHILE in$=""
  468. SLEEP
  469. in$=INKEY$
  470. WEND
  471. keynumber=ASC(in$)-128
  472. IF keynumber<1 OR keynumer>10 THEN keynumber=0
  473. END SUB
  474.  
  475. ende:
  476. CLS:LOCATE 3,3
  477. schr$="Hey man, wunder passieren selten!":sp(schr$):LOCATE 5,3
  478. schr$="Und so endet dann doch immer eine gute Geschichte:":sp(schr$):LOCATE 7,3
  479. schr$="Er wartete lange auf ein Wunder, doch es kam keins.":sp(schr$):LOCATE 9,3
  480. schr$="Und da ihn auch niemand etwas zu essen gebracht hat wurden":sp(schr$):LOCATE 11,3
  481. schr$="seine Knochen viele Jahre spaeter einmal gefunden. Und die":sp(schr$):LOCATE 13,3
  482. schr$="Einheimischen erzaehlen noch heute von dem, der seine Chance":sp(schr$):LOCATE 15,3
  483. schr$="nicht genutzt hat und in seiner offenen Zelle versauert ist.":sp(schr$):LOCATE 18,3
  484. COLOR 3:schr$="Du kannst es aber gerne noch einmal versuchen!":sp(schr$):LOCATE 20,3
  485. COLOR 2 :SLEEP:SLEEP:SLEEP:SLEEP:SLEEP:GOTO schluss
  486.  
  487. dokument:
  488. CLS:LOCATE 3,3 
  489. PRINT "Name: ";spieler$
  490. LOCATE 5,3:COLOR 6
  491. PRINT "Mut:":COLOR 7:LOCATE 5,25:PRINT mut:COLOR 6:LOCATE 7,3
  492. PRINT "Geschick:":COLOR 7:LOCATE 7,25:PRINT geschick:COLOR 6:LOCATE 9,3
  493. PRINT "Klugheit:":COLOR 7:LOCATE 9,25:PRINT intelligenz:COLOR 6:LOCATE 11,3
  494. PRINT "Kraft:":COLOR 7:LOCATE 11,25:PRINT kraft:COLOR 6:LOCATE 13,3
  495. PRINT "Charisma:":COLOR 7:LOCATE 13,25:PRINT charisma:COLOR 6:LOCATE 15,3
  496. PRINT "Attacke:":COLOR 7:LOCATE 15,25:PRINT attacke:COLOR 6:LOCATE 17,3
  497. PRINT "Parade:":COLOR 7:LOCATE 17,25:PRINT parade 
  498. LOCATE 19,3:COLOR 5
  499. PRINT "Lebensenergie:";TAB(25);lebensenergie
  500. COLOR 6:LOCATE 5,31:PRINT "Waffe:":COLOR 7:LOCATE 5,45:PRINT waffe$
  501. COLOR 6:LOCATE 7,31:PRINT "Ruestung:":COLOR 7:LOCATE 7,45:PRINT  kleidung$
  502. COLOR 6:LOCATE 9,31:PRINT "Vermoegen:":COLOR 7:LOCATE 9,44:PRINT geld
  503. COLOR 6:LOCATE 11,31:PRINT "Punkte:":COLOR 3:LOCATE 11,44:PRINT punkte
  504. COLOR 2
  505. SLEEP:SLEEP:SLEEP:SLEEP:SLEEP:RETURN
  506.  
  507. schluss:
  508. CLS:LOCATE 3,3:COLOR 7
  509. PRINT "Hey ";spieler$;", Du solltest auch mal die positive Seite"
  510. PRINT "  dieser Entwickling betrachten: Du hast es hinter Dir,"
  511. PRINT "  niemand kann Dich mehr quaelen und demuetigen..."
  512. PRINT:PRINT"  Du hast trotzdem schon";punkte;" Punkte gemacht. Bravo"
  513. COLOR 3:PRINT:PRINT"Noch ein Spiel?"
  514. PRINT "       < F1 > Na klar, ich bin doch kein looser"
  515. PRINT "       < F2 > So ein scheiss Spiel, schnell weg"
  516. WHILE 1
  517. getkey x
  518. IF x=1 THEN start
  519. IF x=2 THEN SYSTEM
  520. WEND
  521.  
  522.  
  523.